home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / freefile.func < prev    next >
Text File  |  2007-02-28  |  258b  |  12 lines
  1. 9000 //
  2. 9010 FUNC FREEFILE CLOSED
  3. 9020   FNUM:=20
  4. 9030   REPEAT 
  5. 9040     FNUM:-1; FOUND:=TRUE
  6. 9050     FOR X:=601 TO 600+PEEK(152) DO
  7. 9060       IF PEEK(X)=FNUM THEN FOUND:=FALSE
  8. 9070     ENDFOR X
  9. 9080   UNTIL FOUND
  10. 9090   RETURN FNUM
  11. 9100 ENDFUNC FREEFILE
  12.